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Foreword 


The Basic 1 Compiler/Interpreter CDP18S834V4 Is 
like the CDP18S834 described In MPM-234 Issued 4-80, 
but Is supplied on a microdisk and Is designed to run 
on the RCA MS2000 MlcroDlsk Development System which 
contains the RCA CDP18S845 MlcroDlsk Operating System 
(MlcroDOS) 

Implementation of BASICl for MlcroDOS requires a 
change In the starting point of memory address user 
space from 1200 to 1600, and changes In the utility 
commands. These changes are shown on subsequent 
pages. 

In this Manual, the BASICl language Is described 
and detailed operation Information for the compiler 
and Interpreter Is given. It Is recommended that the 
user carefully read the User Manual for the CDP1802 
Microprocessor , MPM-201 for a detailed description of 
Its Instruction set and architecture, the MPM-201C 
Supplement for the Instruction Set for the RCA CMOS 
Microprocessors CDP1804A, CDP1805A, and CDP1806A , and 
the User Manual for the RCA MS2000 MlcroDlsk 
Development System, MPM-241, 
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1 . Introduction 


Buie 1 provkiu the moit fundamentil of thoM 
ftinctiont normelly attributed to the high-level 
language called Bulc. It ii an excellent language for 
the beginning computer programmer. It it easily 
learned, and elementary application programs may 
be developed quickly. For the more experienced pro- 
grammer, Basic I forms the core of a system whose 
facilities may be extended indefinitely by the addition 
of machine language subroutines limited only by the 
system memory. 

The Basic I Compiler/lnlerpreter gives the user the 
option of (I) developing and running programs In 
Bulc I directly, or (2) converting these programs to 
executable object code capable of running at a 
greater speed. 


The Interpreter allows the user to write programs 
In Buie I with line numbers for later execution or 
without line numbers for immediate execution. The 
disk-related statements incorporated in the Inter- 
preter allow the programmer to uve programs on a 
floppy disk for later recall. 

> The coapllcr eneblee the progrewMr to take any 
atorad progran written In Basic 1 and translate It 
Into aaeeably language, giving the user the 
flexibility of specifying where In naaory the 
progran, variables, and stack are to reside. The 
output of the compiler can be asseabled by the 
MlcroDOS nacToassenbler (ASMS) to produce the 
directly executable object code. Programs compiled 
■ and aasenblad run at spaeda much greater than tboaa 
run directly through the Interpreter. 



2. Elements of Basic 1 Compiler/Interpreter 


In thia chapter, the format of Basic I is outlined 
and the individual functions arc desaibed. 

Programs and Statamants 

A program in Basic it an ordered litf^numbcrcd 
lines. Ea^ line can hold a maximum of@icharacters 
and may contain one or more Basic statements. Lines 
may be entered in any order and line numbers may be 
skipped. Bask 1 arranges the lines in numerical se- 
quence regardless of the order of entry. Line 
numbers can run from 1 to 32767. 

Pig. 1 contains two examples of the tame program. 
In Fig. 1(a), the program contains one Basic 1 state- 
ment per line and the lines are numbered consecutive- 
ly starting at 1. In Fig. 1(b), the program contains 
multiple Basic 1 statements per line and the lines are 
numl^ed in increments of 10 starting at 10. The type 
of line numbering in Fig. 1(b) permits the addition of 
new or corrected statements into the program 
without renumbering all the lines. 

Blanks written on a line have no significance to 
Buk 1. All spaces before the first non-numeric 
character are totally ignored. After that, however, 
blanks are preserved in the memory copy of the state- 


1 LET A. 5 

2 LETB-10 

3 LETC«A*B-f3 

4 PRINT C 
6 END 

(•) 

10 LET A-6;LET B-10 
20 LETC-A*B>3:PRINTC 
30 END 

(b) 

Fig. 1-~Sampl» Baa/c 1 ptogrsm$. 


ment (i.e., each blank character occupies one byte). 
Judicious use of blanks within lines can often im- 
prove the readability of a Basic program. For infor- 
mation regarding the use of multiple statments in a 
line, refer to Chapter 4, Programming In BaNc 1. 


NumbBrs 


Bask 1 accepts numbers that are either decimal or 
hexadecimal. A decimal number is a sequence of 
decimal digits (0-9) optionally preceded by a sign ( + 
or - ). If no sign is present the number it assumed to 
be positive. All numbers are stored as 16-bit signed 
intMers. Positive values may range from 0 to 32767 
(2*^- 1) and nMative numbers may range from - 1 
to -32768 a^^). It should be noted that -32768 
cannot be input directly. However, an expreuion can 
be evaluated to give the value -32768. 

A hexadecimal number it any sequence of hex- 
adecimal digits (0-9, A-F) preceded by a pound sign 
(#). Hexadecimal numbers can range from #0000 to 
#FFFF. Fig. 2 gives tome examples of valid and in- 
valid number constants. 

0 

1 

-1 

-32767 

«ABCD 

(•) Vnlld 

5.5 (Integora only) 

250000 (number out of range) 

7,2(X) (commaa do not appear In a number) 
BB55 (hex conatanta muat be preceded by 
a aa eBBSS) 

(b) Invalid 

Flg.2^Valld and Invalid numbar conatanta. 
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Variable 


A V triable it dctifnated by any lintlc capital letter 
(A'Z). Each poatlble variable h ataigned a unique 
two-byte location in memory. The value of the 
variable it the conienti of that location fi.e., a 
number in the range - 32768 to 32767). 


Expraaalona 


An expretiion it a combination of one or more 
numbert, variables, or functiont joined by operators 
and pouibly grouped by pairs of parentheses. The 
permiuible arithmetric operaton are: 

-f Addhion 
- Subtraction 
* Muhiplication 
/ Division 

Bxprettiont alto allow the indirection operator 
to mean the byte from the following memory ad- 
dress. The indirection operator may be followed by 
any valid exprettion including one encompassing 
another indirection operator. Fig. 3 gives tome ex- 


amples of valid exprestlont. Pig. 4 gives tome ex* 
amples of expressions using the indirection operator. 

Whenever Basic 1 encounters an expression within 
a statement during Ht execution, it evaluates the ex- 
pression, combining the numbers and the values of 
the variables and functions using the indicated 
operators. Internal tub-expressions within paren- 
theses are evaluated first. Usually, paremhetet make 
clear the order in which operations are to be perform- 
ed. However, if there it an ambiguity becauK paren- 
theses are absent, Basic 1 gives precedence to multi- 
plication and division over addition and subtraction. 
Arithmetic operators also take precedence over the 
indirection operator. In cases Involving two 
operators of equal precedence, evaluation would pro- 
ceed from left to right. An exprettion may be op- 
tionally preceded by a sign. In the example expres- 
sions given in Fig. S, the operators are numbered to 
indicate the order in which they are performed. 

When the result of a division is not an integer, 
Basic 1 will truncate the result. Examples of this divi- 
sion and truncation are given in Fig. 6. 

During the evaluation of an expresstion, all in- 
termediate values and the final values are truncated 
to the lowest 16 bits of the results. That is, expres- 
sions are evaluated modulo 2*^ with the most si^fl- 
cant bit being the sign bit. No attempt is made to 
discover arithmetic overflow conditions except that 


D 461 «2ABC A-I-1-C («C))) 

B-e*2 (X-»-Y)f(A + B) -(-46/(-327e74-(l*l))) 

Pig. J— ya/ltf §Mpr»§ilon§. 


• 126 wTha contonta of mamory location 007D (I25«hax 0070) 

0#7D wAn aquivalant axpraaalon 

• •5 wTha oontonta of memory location vsfioae addreaa la In location 0006 
•6 -f 1 wThe contonta of memory location 0006 

(•6) 1 « One more than the contonta of location 0006 
1 -f •& > An equivalent expreaalon 

Pig. 4— Expreaatona u$lng fhe Indirection oporotor 


A-t-B*C (A-i-B-i-CyS 

2 1 12 3 


A-«-B*6f4-t- 
3 12 4 


(((A-fB)*4)-6*D) 
1 2 4 3 


A-t-B-C-t-D 
1 2 3 


A*B/C*D/E*F 
1 23 45 


Pig. f->Expreaafon evaluation. The numbere Indicate the order In which the operetlone 

ere performed. 
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OIVIMON result 

2 

(-ey(-3) , 2 

7/3 2 

(- 7 V(- 3 ) 2 

a/3 2 

(-ays -2 

e/(-3) -2 

e /7 0 

Wp. i*~Sxprooo/efio wo/ns tBo tf/r/o/en oporotof. 

tn ottetnpt to divide by zero results in an error stop. 

Any expression which evaluates into the range of 
327Mto65S3S(2'*to2'^-l)hasasign bit of I (mak- 
ing it negative). Thus, it is actually treated by Basic I 
as If 6SS36 (2*®) were subtracted from it. As a conse- 
quence. the following are expressions which have the 
same value; 

>4096 
13*4096 
2*16384/8 
30720 30720 

Functions 

Function references may appear in expressions in 
the same way as a variable or number constant. They 
may also appear by themselves anywhere an expres- 
sion is permitted. Foiiowing it a listing of the Basic I 
functions and a description of what each function 
does. 

MOD FiioctioB 

Fona— MOD (Expression 1, Expression 2) 

Hie MOD function divides Uie value of expression 
1 the value of expresmn 2 and returns the re- 
mainder. It is exactly equivalent to the expression 

When the OR, XOR, or AND function !• uB€d^ if the 
second ergiment it e two-byte hex constant with #00 
In the high or low byte, insufficient code Is 
produced to fon sn OR, XOR, or AND with the #00 byte 
of the srguaent. The user can correct the problee by 
editing the output froa the coapller with the 
^Deertion of additional -code to perfom the aleaifig 
01-lng function. In the following exaaple the code 
that the user should add la underlined. 

OR (T,#1500) should generate 
SEP L;DC A.O(VY) 

CHI ZZ;PL0 AC 

CHI AC;0RI A.0(015H) ;PHI AC; 

CLP AC;0RI A.0(00H);PL0 AC 
SEP 8;DC A.(VY) 

AND FunctioB 

Form— AND (Expression 1 .Expression 2) 

The AND function returns the bit-for-bit iogicai 
^ AND of the two arguments. 

OR FunctlOB 

Form— OR (Expression 1, Expression 2) 

The OR function returns the bit-for-bit iogicai OR 
of the two ereiimenu. 


XOR Function 

Form— XOR (Expression 1, Expression 2) 

The XOR function returns the bit-for-bit logical 
XOR of the two arguments. 

MAX Function 

Form— MAX (Expression List) 

The MAX function returns the greatest value in the 
expression ilst. The expremion list it a iitt of axpm- 
tioni separated by commas. 

MIN Function 

Form— MIN (Expression List) 

The MIN function returns the smallest value in the 
expression list. 

SGN Function 

Form— SON (Expression) 

The SON function returns a - 1, 0, or -f 1 depen- 
ding on whether the argument is negative, zero, or 
positive, respectively. 


ABS Function 

Form— ABS (Expression) 

The ABS function returns the absolute value of its 
argument. 

HEX Function 

Form-HEX (Number .Width) 

The HEX function it valid only in a PRINT state- 
ment. It prints the value of the number in hex- 
adecimal. Both the number and the width can be any 
valid expression. If the width evaluates to a numbir 
between 1 and 3. it specifies how many digits (from 
the least significant part of the number) will be 
printed. Otherwise, or if the width parameter is omit- 
ted. four digits will be printed. 

RND Function 

Form— RND (Expression 1, Expression 2) 

The RND function returns a positive random 
number in the range from the value of expression 1 to 
the value of expression 2, inclusive. The value of ex- 
pression 2 must be greater than the value of expres- 
sion I. If the arguments are invalid, an enor stop 
may occur. 

INP Function 

Form— Line Number INP (Port) 

The INP function is used to input data from a 
specific port. It generates a hardware in instruction 
with the N lines set according to the parameter 
(Port). It is essential that the Port expression evaluate 
to a number in the range of 1 to 7. The INP function 
executes by returning the value of the data on the 
specified input port as a number in the range 0 to 
255. 

USR Function 

Form— USR (Expression (.Expression 2.Eiq>res- 
sion 3) 

The USR function is an important feature of Basic 
1 that allows the user to extend the features of the 
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language by neana of machine language rout 1 nee. To 
uae thla feature » the programmer muat be familiar 
with machine language programming, the Inatructlon 
•et for the CPU (See MPM-201, Uaer Manual for the 
CDP1802 008MAC Mlcroprocaaaor) , MPM-201C, 

Inatructlon Sat for the ICA CMOS Mlcroprocaaaora 
CDP1804A, CDP1805A, CDP1806A, and the CPU reglatara 
that are available and can Interface between the 
machine language program and the Baalc 1 program, 
iecauae Implementation of Baalc 1 for MlcroDOS 
requlrea a change In the atartlng point of memory 
addreaa uaer apace from 1200 to 1600, the programmer 
ahould alao be aware of the areaa In memory that can 
be uaed. 

When the USR function is encountered in a pro- 
gram, Basic 1 evaluates the first expression and 
transfers control to that address. The second and 
third expressions are optional. If a second expression 
is included, it is evaluated and the resulting value is 
passed to the called program as the contents of CPU 
register 8. If a third expression is included, its value is 
passed in register A (with D also holding RA.O). The 
subroutine receives control with P*3 and X*2. 

The called program must return with a SEP 3 (D5) 
instruction. When it returns, its 16-bit function value 
is the final contents of RA. I and D flower 8 bits in D) 
just before the SEP 3 was executed. 

Machine language subroutines have the free use of 
RO, Rl, R8, RA, and RF. In addition, R2 is 
Dointing at a free byte in the control stack. 


Basic 1 haa a bullt-ln call and return aubrout 
that praaervea the accumulator (D) and deatroya the 
low part of rcglatar RE. Tills subroutine differs 
from the Standard Call and Return Technique (SCRT) 
described In the User Manual for the CDP180 2 COSM AC 
MlCTOProcesBor. MPM-201. 


The user program area Is locsted directly ebove 
the Interpreter, starts at #1600, and runs up. The 
stack starts at the top of memory (I7FPF in a 
32-kllobyte system) and runs down. See Fig. 7(a). 

The machine language subroutine can be positioned 
somewhere between the user program area and the 
stack, or the position of the user program area can 
be changed, thereby saving X number of bytes for the 
machine language subroutines. To change the position 
of the user program area, the constant #1600 stored 
at location #011C should be changed to some other 
value (#1800, for example). See Fig. 7(b). 

Procedure: After the interpreter is loaded, 

press RESET and RUN U on the front panel of the 
development system. When the asterisk prompt is 
returned, type in the command ”I011C(1^$ (CR)**, and 
then execute a cold start, " PlOO". For more 
information on cold'-startlng the interpreter refer to 
Chapter 5, Running Basic 1. The block of memory 
between #1600 and #1800 will now be skipped by the 
interpreter. 

The compiler permits the user to place the 
variables, program, and the stack anywhere in 
memory. The user must keep in mind, however, that 
bytes at locations #0000, MXIOI , #0002, and #0003 are 
always occupied. With this flexibility any amount of 
space that might be needed for machine language 
subroutines can be Mved. 


HCXAOCCIMAL 

AOORCnS 


/4 08 


STACK 


USIS 

SnOtflAM 


•ABIC I , 

iNTcnsinntfil 


(•) 



Fig. 7'^lnt§rpf0t§r memory uB&gg In 32-kllobyt§ $y$t 0 m. (§} UnmodItM. (b) ModIfM to $§fo 
#0200 bytf • for mochino longuago aubroutlnoa. 
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3. Statement Types 


A •lalMMel oonnaUy begini with a key word, such 
M PRINT or GOTO, indicating the type of state- 
ment. The Interpretation of the rest of the statement 
depends on the key word. In some cases a shortened 
form of the key word is also acceptable. An example 
Is PR Instead of PRINT. In this chapter, the various 
types of statements and the associate key words will 
be described. 

Commtntt and Daclaratlont 


EEM Statement 
Perm-Line Number REM Teat 
The REM statement Is used to Insert remarks or 
comments into a program. During program execu- 
tion, It is ignored by Basic 1 . 

Eaample-lOO REM THIS IS A REMARK 

! Statement 

Form— Line Number ! Assembly Language 
The I statement is used to pass assembly language 
through the compiler. The interpreter treats the I 
statement the same as the REM statement. 

Example-100 I.T'THIS WILL BE PASSED 
THROUGH THE COMPILER’ 

The use of the ! statement will be explained in detail 
in Chapter 4, Programming in Bnslc 1. 


Assignmnnt 


LET Statement 

Form— Line Number LET Variable « Expression 
The LET statement is used to assign a value to a 
variable. The value may be any general expression. 
The key word LET is optional. 

Examplaa-100 LET A-5 
ISO B- 10 


The LET statement can be combined with the in- 
direction operator to store a byte anywhere in 
memory. 

Form— Line Number LET® Address « Datum 
Both the address and the datum may be any valid 
expression. 

Exprcsaton-100 LET® #3000 -«2A 

Control 

GOTO Statement 
Form— Line Number GOTO Expression 
The GOTO lutemcnt trnnsfers control In the pro- 
gram to the line number specified by the expression. 
If the expression contains one or more variables It is 
considered a computed transfer of control. 
Examples- 1 00 GOTO ISO 

ISO GOTO 1*2 + 200 

The interpreter Is able to execute a program with 
computed transfers of control. For the compiler to 
work with such a program, however, it needs a table 
of target lines following the END statement of the 
form: 

LINE NUMBER, TARGET LINE I, — -, 
TARGET LINE 5, - I 

LINE NUMBER, TARGET LINE 6, TARGET 
LINE 7, 0 

where the - 1 and the 0 at the end of the lines refer to 
table incomplete and table complete, respectively. 
Lines containing the table of target line numbers 
must have a line number of 32001 or greater. 
Example — . 

i SO GOTO X* 10 + 200 (where X can 
range from 0 
to S) 


300 GOTO Y*S + SOO (where Y can 
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range from 0 
to 3) 


SOOO END 

32001,200.210.220,230.-1 

32002.240.230,500.505.-1 

32003.5I0.SIS.0 


FtaMptea— 100 END 
100 STOP 

The compiler uiei the END itatemem to tcrmioatc 
compilation. In the compiler, the END ttatcrocnt 
must be the latt line of the program. Thii itatement 
must be the one and only END itatement In the pro* 
gram. The key word STOP U not recognized by the 
compiler. 


GOSUB Statement 

Form— Line Number OOSUB Expretiion 

The OOSUB statement ii used to call an internal 
•ubroutine. It ii executed exactly the tame as a 
GOTO statement with one exception. The number of 
the line immediately following the OOSUB statement 
is recorded by Basic 1 . 

Examples— 100 OOSUB 1010 

100 OOSUB 1*10 4^ 300 

The OOSUB statement can be combined with the 
Indirection operator **(9" to jump to a machine 
language routine. 

Form— Line Number OOSUB^ Expression 1, Ex- 
pression 2,Expression 3 

Expression I specifies the address of the machine 
language subroutine. Expressions 2 and 3 are op- 
tional. If expression 2 is included, it is evaluated and 
the resulting value passed to the called program as 
the contents of CPU register 8. If a third expression 
is included, its value is passed in register A (with D 
also holding RA.O). The subroutine receives control 
with P • 3 and X > 2, and must return with a SEP 5 
(DS) instruction. (See USR Function in Chapter 2, 
Flemtnta of Basic 1 Compllcr/lnlcrprctcr.) 

F-xampiM-tOO OOSUBO»3000 

lOOOOSUliO I300.A*B 
100 OOSUB O #4100,0,11136 

RETURN SlKement 

Form— Line Number RETURN 

The RETURN statement Is used to mark the end of 
an internal subroutine. It executes by transferring 
control back to the statement whose line number was 
recorded as the result of the execution of a OOSUB 
statement. The acceptable short form of the key 
word RETURN Is RET. 

Examples- 100 RETURN 
100 RET 

Internal subroutines are explained in Chapter 4, 
Programming in Basic 1. 


Conditional Statomont 


IF StatemcBt 

Form— Line Number IF Expression I Relation 
Expression 2 THEN Statement 

llie IF statement is used to compare two expres- 
sions according to the specified relation. If the condi- 
tion specified is true, then the associated statement is 
executed. Otherwise, the program is advanced to the 
next line number. The permissible relational 
operators are: 


< 

> 

< - 
> - 

<> or >< 


equal 
less than 
greater than 

less than or equal (not greater) 
greater than or equal (not less) 
not equal (greater than or less 
than) 


The associated statement may be any other valid 
Basic I statement Including another IF statement. 
The key word THEN may be omitted. 
Examples-lOO IF I >23 THEN END 
100 IF I< 3 PR “UNDER" 

100 IF A>BIFB>CI-UI 
(Increments only If B is between 
C and A) 

The IF statement also allows the key srord OOTO 
to be replaced by THEN, thus making the two 
statements below equivalent. 

Examplcs-100 IF B - 3 OOTO 200 
100 IF B-3 THEN 200 

It should be noted that the key word THEN b essen- 
tial here and cannot be omitted. 


Input/Output 8tat«m«ntt 


END Statement 
Form— Line Number END 
The interpreter uses the END statement to ter- 
minate execution of a program and return to the 
enter mode. It must be the last statement executed in 
a program and there may be as many END 
statements in a program as needed. The interpreter 
accepts as a synonym for END the key word STOP. 


INPUT Statement 
Form— Line Number INPUT Inputlist 
The INPUT statement is used to input data from 
the terminal or disk. The Inputlist is a succession of 
one or more variables separated by commas. The ex- 
ecution of this statement begins with the typing of a 
question mark prompt indicating that Basic I is ex- 
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pccting the user to type in data. The user should res- 
pond by typing a line of one or more expressions 
■eparat^ by commas and terminated with a carriage 
return. Each input expression is evaluated and 
assigned to its input variable in the INPUT state- 
ment. 

If the number of requested variables in the In- 
putlist u not satisHed by the number of expressions in 
the user’s input line, a new ? prompt will be issued 
asking for more information. If the number of ex- 
pressions in the user's line is greater than the number 
of requested variables, then those input expressions 
not requested are saved internally. 

The key word INPUT can be shortened to IN. This 
short form has a slight functional difference. The IN- 
PUT sutement will unconditionally read another 
line, ignoring any remaining data in the current line. 
The IN statement, however, will check to see if any 
saved expressions exist. If so, then these saved ex- 
pressions are used first to satisfy some or all of the 
vtfiables requesting values. Only when no saved data 
ciUsts is the 7 prompt issued. 

Eiampkt— 100 INPUT A,B,C 
100 IN A,B,C 

The key words INPUT and IN can be followed by 
a prompt string. The string is a group of characters 
enclosed in quotes that will be typed in front of the 
first 7 prompt when the statement is executed. If the 
prompt string is followed by a comma, a new line of 
input is required. If there is no comma, the existing 
line of data is used until exhausted. The prompt 
string over rides key word spelling. 

Eiampka-lOO INPUT "READ", A,B,C 

100 IN "GIVE IT TO ME" A,B,C 


PRINT Statcmcnl 
Form— Line Number PRINT Printlist 
The PRINT statement is used to print data or 
messages to the console printer or disk. The Printlist 
is a succession of one or more items to be printed 
separated by either commas or semicolons. Each 
print item may be either an expression or a character 
string enclosed in quotes. In the first case, the value 
of the expression is typed. In the second case, the 
character string is printed verbatim. No spaces are 
generated between the printout of items separated by 
semicolons in the PRINT statement. On the other 
hand, the printout of an item preceded by a comma 
in the PRINT statement begins at the next tab set- 
ting. Tabs are automatically set every eight 
characters. Commas and semicolons, character 
strings, and expressions may be mixed in one PRINT 
statement in any manner, llie acceptable short form 
for PRINT is PR. 


Examples— 100 PRINT 1,2;3,“HELP” prints as; 

I 23 HELP 

100 PR S;6;7,8,9 prints as: 

367 8 9 

Normally, the execution of a PRINT statement ter- 
minates with the generation of a carriage return and 
line feed to begin the new line. If the PRINT state- 
ment ends with a comma or semicolon, however, 
then the carriage return-line feed sequence is sup- 
pressed, permitting subsequent PRINT statements to 
output on the same line or permitting an input 
message to appear on the same line as the previous 
output. 

The interpreter will accept the leading quote of a 
character in place of the key words PRINT and PR. 

Examples- 100 "HELLO” 

prints as; HELLO 
100 "HELLO”,5;6,7 

prints as: HELLO 36 7 

The compiler will not accept this last form as a 
valid statement. 

OUTPUT Statement 
Form— Line Number OUTPUT Port,Data 
The OUTPUT statement is used to generate a 
hardware out instruction with the N lines set accor- 
ding to the first parameter (Port), and the output 
data supplied in the second parameter (Data). Either 
parameter may be any valid expression, but it is 
essential that the Port expreuion evaluate to a 
number in the range 1 to 7 or no output may occur. 
Only the least significant 8 bits of the Data expres- 
sion are output. The accepted short form of the key 
word OUTPUT is OUT. 

Examples-IOO OUTPUT 3,6 
100 OUT 7.1 


DIsk'Ralattd Statamants 


WFLN Statement 
Form— Line Number WFLN 
The WFLN statement is used to initialize an output 
file (write file). 

Example-100 WFLN 

This statement executes by first closing the last 
output file (if one existed) and setting the internal 
flags for terminal input and console printer output. 
Then, it prompts the user with a WRITE7 for a 
FILENAME. The user must respond by typing in a 
FILENAME in the form: 


(NAME).(EXTENSION):(DRIVE) 



I. ttat«m«nt Typts 



The NAME consists of from one to six alpha- 
numeric characters. The EXTENSION consists of 
from one to three alpha-numeric characters. The first 
character of each must be an alphabetic character. 
The DRIVE must be a number, either 0 or I. Both 
the EXTENSION and the DRIVE are optional. If the 
DRIVE is not specified, a default value of 0 is used. 
The following are examples of valid FILENAMES: 

TRIALI.BSCI 

TRIALI:! 

TRIAL (DRIVE default value is zero) 

TS329.AI7 (DRIVE default value is zero) 

If an invalid FILENAME is typed in, an error 
message will be printed and the user will be prompted 
with a 7 for another FILENAME. Once a valid 
FILENAME has been received, a file is opened; that 
is, space is allocated on the disk under that 
FILENAME. 

RFLN Stttcmcnt 

Form— Line Number RFLN 
The RFLN statment is used to initialize a read file 
(input flle). 

Example— 100 RFLN 

The RFLN statement executes the same way as the 
WFLN statement but with a couple of minor 
changes. First, an input Tile is involved rather than an 
output nie. Second, instead of a WRITE? prompt 
being issued, a READ? prompt is issued. 

DOUT Statement 

Form — Line Number DOUT Filename 

The DOUT statement is used to set up a disk out- 
put file. This statement executes by closing the last 
output file (if one existed), processing the Filename 
found In the statement, opening an output file under 
the new Filename, and setting internal flags for disk 
output. The Filename is of the same form as describ- 
ed under the WFLN statement. If an invalid 
Filename is discovered, the interpreter will return to 
the enter mode and the compiler will return control 
to CIX)S. 

The DOUT statement can be used without the 
Filename. When so used, only the internal flags for 
disk output are set. 

Examplea-lOO DOUT STOREl.TRI:! 

100 DOUT 


DIN Statement 
Form— Line Number DIN Filename 
The DIN statement is used to set up a disk input 
file. This statement executes the same way as the 
DOUT statement but with some minor changes. 
First, Input files are involved Instead of output files. 
Also, when Internal flags are set, the setting will be 
for disk Input. 

Examples- 100 DIN TRBLE:I 
100 DIN 


CLOSE Statement 
Form— Line Number CLOSE 
The CLOSE statement is used to close a disk out- 
put file and set the internal flags for console printer 
output. 

Exampk-100 CLOSE 

WEOF Statement 
Form— Line Number WEOF 
The WEOF statement Is used to put an end-of-flic 
character (DCS) In a file. The execution of this com- 
mand also sets (he internal flags for console printer 
output. It Is used for separating lines of data in a disk 
file. 

Example-100 WEOF 

TIN Statement 
Form— Line Number TIN 
The TIN statement restores the terminal as the 
primary input device. Because this statement does 
not alter the disk control block, further use of the 
DIN statement without a parameter will resume 
where the previous reference left off. Any error stop 
or the execution of a NEW or END statement win 
force an implicit TIN. 

Example-100 TIN 

TOUT Statement 

Form — Line Number TOUT 
The TOUT statement restores the console printer 
as the primary output device. Because this statement 
does not alter the disk control block, further use of 
the DOUT statement without a parameter wiU 
resume where the previous reference left off. Any er- 
ror stop or the execution of a NEW or END state- 
ment will force an Implicit TOUT. 

Example-100 TOUT 

NOUT Stalement 
Form— Line Number NOUT 
The NOUT statement disables the output. It is 
cancelled by a TOUT or DOUT statement. 
Example- 100 NOUT 


System Control Statements 


System control statements are recognized only by 
the interpreter. They are not normally included as 
part of a program. They are normally entered 
without a line number. 

NEW Statement 

Form— NEW 

The NEW statement Is used before a new program 
is entered. Execution of this statement clears the pro- 
gram area in memory. Alternate acceptable forms of 
the key word NEW are CLEAR and SCR. 



14 


.. Um of Boole 1 Cempllor/Intorprolor COPIMIMv'l 


EumHm-NEW 

CLEAR 

SCR 

RUN Statement 
Form— RUN Expreuion Sequence 
The RUN itotement ii uied to itort execution of o 
protrom. It begins execution ot the first Oowest) line 
number. If the key word RUN is followed by o com- 
mo followed by o sequence of one or more expres- 
sions seporoted by commas, then the expression se- 
quence is treated os an initial input line. This line will 
be scanned first when IN statements are executed. 
Enamplct-RUN 1,2,3 
RUN 

LIST Statement 

Form— LIST Expression {.Expression 2 
The LIST statement is used to print out all or part 
of a stored user program. Both parameters are op- 


tional. If no parameters are given, the whole pro- 
gram is listed. A single expression parameter is 
evaluated to a line number. If the line exists, k la 
printed. If both parameters are given, all lines with 
line numbers in the range specified are printed. 

Examples-LIST 

(Prints antira uaar program) 

LIST 100 

(Prints line 100 If It axlsts) 

LIST 1,1000 

(Prints all lines between 1 and 1000 
inclusive) 


RDOS SCntemcBt 

Form— RDOS 

The RDOS statement is used to restore control to 
the Disk Operating System. 

Example- RDOS 



4. Programming in Basic 1 


Hib chtfiter introducet the user to progrtn'ining 
In Buie 1. Ground rules for the interpreter and the 
compiler are discussed as well as some programming 
techniques. Two programming examples are given 
and error messages and programming debugging are 
covered. 

Imm«diat# Exacutlon and 
Program Modaa 

After the user loads the Interpreter, a colon pro- 
mpt Is returned Indicating that the interpreter is 
In the enter asodc and is ready to accept a line. After 
each input line is handled, the interpreter returns to 
the enter mode. If the user inputs a line without a line 
number followed by a carriage return (CR), the inter- 
preter goes into the Immediate eaecntloa mode. In 
this mode, the line typed is executed immediately. If 
the user inputs a line preceded by a line number and 
followed by a (CR), that line would be taken from 
the input buffer and stored in the user program area. 
Typing the RUN command would then put the inter- 
preter into the program mode and the lines stored in 
the user area would be executed. 

One important use of the immediate execution 
mode is to permit line-at-a-time testing. LET, IF, and 
PRINT can be demonstrated this way. 

The INPUT and IN statements can also be directly 
executed but, because of the way Basic I buffers its 
input lines, the INPUT or IN statement cannot be 
directly executed for more than one variable at a 
time. Thus, if the following statement is typed 
without a line number 

INPUT A,B,C 


only the value of A will be asked for. The values of B 


and C will remain u they were. If the statement 
IN A,B,C 

is typed without a line number, the value of B will be 
copied to A and only the value for C will be re- 
quested. Similarly, the statement 

IN A,S,B,I0,C,1S 

will execute directly (loading A, B. and C with the 
values 3, 10, and 13, respectively) and request no In- 
put. But, with a line number in a program, this state- 
ment will produce an error stop after requesting one 
value. 

Clearly, there Is no point to executing REM or 
END in the immediate mode. Furthermore, OOSUB 
and RETURN are normally meant for the program 
mode. On the other hand, an immediate GOTO has 
the same effect as if RUN were typed, but execution 
may begin at other than the program's first state- 
ment. 

The program mode is entered to execute a program 
stored in the user area. As noted before, lines pre- 
ceded by a line number are stored in the user area. No 
errors, therefore wilt be detected in a stored program 
until an attempt is made at execution. 

System control statements are not normally includ- 
ed in a stored program. NEW (as well as CLEAR and 
SCR) obviously should be avoided because execution 
of any of these commands would result in a self- 
destruct. A stored RUN, however, will be the 
equivalent to a GOTO to the first statement. Also, a 
LIST statement may be included as part of a program 
and used for printing out large text strings, such as 
instructions to the operator. 

It should be noted that the interpreter will accept 
system control statements in the body of a stor^ 
program but the compiler will not. Consequently, no 
system control statements can be present in a pro- 
gram intended to be compiled. 
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Multipit Commandt Par Lint 

An important feature of Basic I is the ability to 
atrinf statements together on a line. This feature is 
accomplished simply by separating the statements 
with a colon An example is 

100 PRINT "START":LET A - 1:0010 300 

Sutamants which effect a transfer of control cannot 
ba followed by any other statement on the same line, 
but otherwise any combination of valid Basic I 
lUtements Is acceptable. This capability Is particular* 
ly useful when the result of some conditions requires 
two or more actions. For example, 


150 IF X<0 PRINT "HELPr 

OOTO 101 

151 REM X>-0 HERE 


:LETX-0: 


The use of multiple commands per line also allows 
remarks to be placed on the line to which they apply. 
Por example, 

200 LET X - 0:LET Y - 0:LET Z - - 1 : 

REM INITIALIZE 




A program can be read back into the interpreter 
with the following statement executed immediately: 

In the immediate execution mode this statement will 
(I) set the disk u the primary input device, (2) in* 
itialize the appropriate disk pointers using the 
associated parameter (file name), (3) read lines from 
the disk to the input buffer, and (4) transfer lines 
preceded by a line number to the user area, executing 
lines not preceded by a line number. Thus, when the 
keyword END placed at the end of the file Is read In, 
implicit TOUT and TIN statements are executed, set* 
ting the terminal and the console printer as the 
primary input and output devicn. Example: 

D i n 

.1 K£AD ? /t CLP, Sic:/ 

^ s/t/ 

The output of the data to the disk Is a relatively 
simple matter. First, the user must initiallxe the out* 
put file by means of one of the following statements: 


Disk Optratlons 

The miMtfdisk system can be used by Basic 1 to 
save and recall programs and data. To accomplish 
this disk input and output, various strings of 
statements must be implemented. 

The Interpreter It the primary tool for the develop- 
ment of a ^ic I Program. At the end of a program- 
ming session, the programmer might want to uve the 
work for future reference. This interpreter allows the 
following string of Basic 1 statements, executed in 
the immediate mode, to permit the saving of a pro- 
gram: . 

JXXJrFllen aine:LI ST Aj/6^ :?K “END’^CLOSE 

do«« not put an END atatanant on tha 
uaar «uat aapllcltly Inaart an END at4ta«ant^ln tha' 
Proiro* bdfo4-a^voklnt DOUT to^jMtirtha prograa on 

It ahould^^-dtt$(dd that If a Baalc 1 

prograa la aodlfl^^^hy uaa o'f-4ha HlcroDOS Baaldant 
Editor or lf>^a prograa la vrlttan 42^ without tha 
kaywordJtKlTln tha coaaand llna, whanThavi^ograa la 
raad-'Hit^o tha intarpratar» tha arror aaaaaga _ 
L; ^laapallad f^atmaant tvn a Jia yword) will ba racal 

The DOUT statement sett the disk as the primary 
output device and initializes the appropriate disk 
pointers by um of the associated parameter (file 
name). The LIST statement lists the program be- 
tween the Unc numbers specified (the range of line 
numbers mutt be included). The PR statement prints 
the key word END after the listing. This key word, 
END, will be used when the program it again read in. 
Finally, the CLOSE statement putt a DC3 on the file, 
nils out the last sector, outputs it to the disk, and sett 
the console printer at the primary output device. An 
example: 

DOUT HBLP,BSC:l:Lin l,IOOO;PR "END'*: CLOSE 


100 DOUT Filename 
100 WFLN 

If a DOUT statement is used, the disk already hat 
been set up u the primary output device. If the 
WFLN statement hasktex. used, a DOUT statement 
with no parameter has to be used to set the disk at the 
primary output device. Once a file hat been inltlallx- 
ed and the disk set u the primary output devioe, a 
PRINT, PR, or LIST statement will output to the 
disk. When all the data it output, the output Ale must 
be terminated with the CLOSE statement, at dls* 
cussed earlier. Some examples follow: 


100.... 

100.... 

no.... 

no.... 

120.... 

120.... 

130 DOUT FILE:1 

130 WFLN 

140 PR “1,9,10" 

140 DOUT 

ISO CLOSE 

ISO PR “1,9,10“ 

160 END 

160CLO8E:END 


100 .... 

IIODOUTPILEO 
120 PR I; 

130 WEOF:DOUT:PR »: 

140 WEOF:DOUT PR 10 
ISO CLOSE 
160 END 

inputting data from the disk It similar to output- 
ting data. The flrit step it to initialize the Input (He by 
use of one of the following statements: 

100 DIN Filename 
100 RFLN 
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If a DIN statement was used, the disk has been set as 
the primary input device. If the RFLN statement was 
used, a DIN statement with no parameter must be us- 
ed to set the disk as the primary input device. Once 
the file has been initialized and the disk set as the 
primary input device, any INPUT or IN statement 
will input from the disk. Examples follow: 


100 .... 

110 DIN FILE1:I 

120 .... 

130.. .. 

140.. .. 

190 END 


100 .... 

no RFLN:DIN 
120 .... 

130.. .. 

140.. .. 

150 END 


OA, 00, and FF, respectively). These special 
characters are assigned by Basic I before its line code 
is entered. 

The break key has a dual purpose in the inter- 
preter. It can be used to interrupt a long listing or to 
interrupt the execution of a program (for example, 
one caught in an endless loop). While executing the 
list command, Basic I checks break at the beginning 
of every line. While executing a stored program, 
Basic 1 checks break between statements. 

Each input line from the keyboard is terminated 
with a carriage return (CR). 


There are some rules regarding the format of data 
strings placed on a disk. These rules are: 

1. All expressions in the input file must be 
separated by commas and the last expression must be 
followed by a carriage return. 

2. Multiple lines with a carriage return and a DC3 
separating them are allowed. (See WEOF statement.) 

It should be noted that both the IN and the INPUT 
statements prompt the user with a question mark. 

This prompting will continue with disk input. To 
avoid the appearance of the question mark prompt 
on the console printer when a disk input Is attempted, 
a dummy output file can be set up and the question 
mark prompt could be output as if it were data. 

Basic 1 uses MicroDOS generalized I/O. The user 
can direct output to any device such as the screen, 
line printer, or disk. An exaeple is : 

DOUT #LP 

Special Keyboard 
Control Characters 

The Basic I interpreter allows certain key 
characters for deleting a character, cancelling a line, 
interrupting execution, and terminating a line. 

An incorrectly entered character may be erased 
(backspaced over) by use of the “erase previous 
character” key. < 

■ Th* hex cod. for this k.y Is storsd In location 
0013 and la a XUflOUT. CONTROL H can also ba usad to 
dalata a charactar froa tha scraan and tha Input llna 


buffer. 


A summary of the keyboard control characters is 
given In Fig. 8. 

How ths Compllsr Uasa tha 
I Statsmsnt 

The Basic 1 compiler takes a source program writ- 
ten in Basic 1 and translates it into CDPI802 
assembly language. Each line number is assigned a 
label, the label being the line number preceded by the 
letter L. When the compiler sees the I statement in a 
program, it passes whatever foliows the exclamation 
point to the output file as assembly language. No 
label is assigned to the line number associated with a 
! statement. 

A common use of the I statement is to pass 
assembly language subroutines to the output file. A 
REM statement is commonly placed in front of the I 
statement to provide a label for the user to call. Thus, 
if the user executes a OOSUB X, where X is the line 
number of the REM statement, the assembly 
language subroutine is executed, because REM 
statements are ignored during execution. 

The I statement is very important in that it allows 

the user to Insert an assembly language subroutine 

rfir 7 kt»yku 0 elh’ anywhere in a program without having to be concern- 
Each occurrence of > erases tne last ed with the absolute address of the subroutine as in 

the USR function and the OOSUBiB statement. 


stored input character. In the event that a line has 
been butchered so badly that it is beyond repair, the 
entire line can be erased by use of the “cancel line” 
character. The hex code for this character is stored in 
location 0014 and is an A.SCII cancel UehtTA.oL C : 
hfi.03 ). The uKr may change either of these edit control 
characters by changing its stored code to any value 
except DCS, LF, NULL, or DELETE (hex code 13, 


CR 

_ or - 

CAN 

BREAK 


Terminates every entry line 

Backspace over or erase previous character 

Cancel line 

Interrupt long listing or program execution 
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RcfUten RO, Rl, R8, RA, RD, and RF are available 
to any assembly language subroutine. All other 
registers, excluding R2 (stack pointer), R3 (program 
counter), R4 (subroutine call), RS (subroutine 
return), and R6 (return address storage), can be used 
If the previous values of these registers are uved at 
the beginning and restored at the end of the assembly 
language subroutine. The register values can be saved 
on the stack (R2 is the stack pointer). Assembly 
language subroutines receive control with P •« 3 and 
X*2 and must return. with a SEP 3 instruction. 


Loops and Subroutines 


A loop is placed in a program to execute a number 
of statements over and over again until tome condi- 
tion is satisHed. An exampie follows: 

100 REM COUNT DOWN 

no A«S 

120 IF A< I GOTO 160 
130 PR "TIME M1NUS",A 
140 A-A-1 
ISO <X>TO 120 
160 PR "BLAST OFF" 

170 END 

Statements 120, 130, 140, and 130 are contained 
within the loop. Here the count down continues until 
the value of the variable A reaches xero. 

A subroutine is a subprogram that is normally 
evoked two or more places within a main program. 
Rather than having the statements of the subprogram 
duplicated in several places, it appears only once. It is 
written so that it exists with a return statement. It is 
evoked at any point in a program by a GOSUB state- 
ment which transfers control to it. 

Whenever one subroutine calls another subroutine 
(termed subroutine nesting), an additional 
"RETURN statement number" is recorded. These 
numbers are stored in order, so that every RETURN 
jumps back to the statement following the OOSUB 
which called it. Subroutines may be nested to any 
depth, limited only by the amount of user program 
memory remaining. It should be noted that OOSUB 
statements must be the last statement appearing on a 
line. 


Programming Examples 

The following programs are designed to give ex- 
amples of Basic 1 in action. Remarks are omitted 
from the listings to keep them short. Instead, each 
program is accompanied by a detailed explanation of 
its funaioning. It should be emphasized, however. 


that the omission of comments Is generally poor 
documentation practice, but It suits the objectives of 
theK examples. Each program can be entered in a 
few minutes. It Is recommended that the user run 
them to gain experience with the system. 

Arithmetic Drill Program 

The arithmetic drill program generates a random 
sequence of arithmetic problems. After the program 
prints the problem, the UMr responds with a solution. 
The program tells the user whether the answer is cor- 
rect or not (providing the correct answer in the latter 
case) and then proceeds to generate a new problem, 
and so on. 

A listing of the program is given in Fig. 9. First, 
three random numbers are generated. The value of F 
(I to 4) will be used to decide whether this problem 
will be an add, subtract, multiply, or divide problem. 
The range of possible values for the arguments A and 
B wu chosen to prevent the possibility of overflow 
under two conditions. First, 161*161 is still lew than 
32767. Second, division by zero is prevented. Because 
Basic 1 discards division remainders, the fourth state- 
ment is included to keep the division problems In- 
teresting. It says: if this problem Is a division pro- 
blem In which the quotient would ordinarily come 
out as zero (true for many of the A, B. combinations 
that might be generated), arbitrarily increase the size 
of the dividend (to a maximum of IllOO In this case) 
to make the problem non-trivial. Statement 30 begins 
the presentation of the problem to the user by prin- 
ting an encouraging message followed by the value of 
the first variable A. Notice that the final semicolon 
keeps the printer on the same line without advancing 
the carriage further. 

Statement 60 does a four-way branch based on the 
value of F, the arithmetic function selected. Thus, 
control passes next to one of the following statement 
numbers: 70, 100, 130, or 160. Each of these 
statements begins a short sequence that prints the 
sign for the arithmetic operation and then computes 
the proper function, placing the result in C. Notice 
the final semicolons again in the print statements. No 
matter which path is taken, control passes next to 
statement 180, which prints the value of the second 
variable followed by an - sign. The presentation of 
the problem to the user Is now complete, and the in- 
put statement at 190 delivers a 7 prompt on the same 
print line and reads the user’s answer into D. State- 
ment 200 congratulates the user on a correct answer; 
statement 210 points out that his answer wu incor- 
rect and provides the correct answer. The commu at 
the end of both PRINT statements here again inhibit 
a new line from starting, but they space over to the 
next tab setting where a new problem is posed u a 
result of the loop at (220) back to the top. 

It should be noticed in the program listing that an 
END statement it not prcKni, contrary to earlier ad- 
vice. The nature of the program it such that Basic 1 
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10 A»RND(1,iei) 

20 B«RND(1,181) 

30 F-RNCX1.4) 

40 IPP-4IFA/B<1 A«A*100 

80 PRINT ‘TRY THIS ONE: *’:A; 

00 QOTO40-«>F*30 

70 PRINT 

80 C-A4B 

00 GOT0 180 

100 PRINT •• - 

110 C«A>B 

120 GOT0 180 

130 PRINT ; 

140 C-A*B 

160 GOT0 180 

100 PRINT T’; 

170 C-A/B 

180 PRINT B;*‘-"; 

190 INPUT D 

200 IF D « C PRINT "RIGHTI", 

210 IF Do C PRINT "WRONG. CORRECT ANSWER IS ”;C, 

220 GOT0 10 


Pig. 9—U§tlng of artthmttlc drill program. 


will never |o put the lut sutement. The program u 
wrhten loops endlessly, and only under these condi- 
tions is the omission of an END permissible. 
However, if the program is to be compiled, an END 
statement must bt placed at the end of the Tile to ter- 
minate compilation. 

The running of this program should give the user 
some practice in learning how Buie I divides. 

Geometric Print Pattern Program 

Hiis geometric print pattern program is designed 
to print three identical, trapezoidal patterns across 
the page, each filled with repeated imprints of the 
same number digit. The user can specify which digit 
is to fill each trapezoid and, for all three, the number 
of chvacters across its top, the slope of its sides 
(positive or negative), and its height. The user can 
also specify the spacing between the patterns on the 
page. 

Because the printer prints line by line, the program 
prints the pattern in a scanning mc^e. Every line con- 
sists of a sequence of the three identical segments, 
and each segment contains D spaces followed by E 
Identical digits followed by D spaces again. The 
values of D and E vary from line to line. For each 
new line, D is decremented by a value I (positive or 
negative) and E is incremented by 2*1 (to keep the 
pattern symmetrical). 

To analyze the program listed in Fig. 10, it is 
helpful to begin by identifying its subroutines. 
Reading from the bottom up, the subroutine from 
230 to 280 prints the digit N across M times (notice 
the semicolon). Similarly, the subroutine from 210 to 
240 prints a sequence of M spaces. Finally, the 


10 J«0 

20 INPUT A,B,C,D,E,I,L 

30 NxA 

40 GOSUB 140 

50 N«B 

00 GOSUB 140 

70 NwC 

80 GOSUB 140 

85 PRINT 

00 DxD-l 

100 E-E-h2*l 

110 JwJ-t-1 

120 IFJOLQ0T0 30 

130 END 

140 M>D 

150 GOSUB 210 

100 M>E 

170 GOSUB 250 

180 M«D 

100 GOSUB 210 

200 RETURN 

210 PRINT" 

220 M>M>1 

230 If M>0 GOTO 210 

240 RETURN 

250 PRINT N; 

260 M«M~1 

270 IF M>0 GOTO 250 

280 RETURN 


Pig. lO—Uotlng of goomotric prlrtt pattom 
program. 
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•ubroutine from 140 to 200 prinu D spaces followed 
by E digits, all N, followed again by D spaces. Notice 
that this subroutine calls the other two. 

The main part of the program runs from 10 to 130. 
First, the program initializes a counter J for the 
number of lines which have been printed. Then, it 
reads (from the user) initial values for A to E, I and L 
(the total number of lines to be printed). A, B. and C 
should be single digits, D, E, and L must be greater 
than 0. Each of these three sequence, 30-40, SO-60, 
and 70-80, prints one segment of a line using the digit 
specified by the user. A new line is started at 83. 
Statements 90 and 100 advance D and E as explained 
earlier, and 110-120 decide whether or not a suffi- 
cient number of lines has yet been printed. If not, a 
new line is started. 

For this program to run properly, the values of D 
and E should not become to small. Nor should they 
be so large u to require excessive line length. The in- 
itial values should conform to the following rela- 
tions: 

3(E-«-2D) < maximum line width; 
if KO, E>2|1|(L-1); 
if I>0, D>1(L-1). 


BuilHn Subroutines for the 
USR Function 

For convenience, the Basic 1 interpreter includes 
. — four built-in subroutines that can be used by means 
of the USR function. They are as follows: 

(1) USR («0)14,N) 48; LDA R8 

U«» D5; RET 

returns the decimal value of the byte at memory loca- 
tion N. where N is the value of the second expression. 

(2) USR (II0118.N.M) 38; STR R8 

li Cf tYfi. -h ufe. foKe DJ* RET 

stores the value of the third expression, M(MOD 
236), into the byte at location N, the value of the se- 
cond expression. It also returns the value M as the 
function's value. Two examples follow: 

PR USR(«0n 4,3072) 

prints the decimal contents of memory location 
#OCOO(3072«II!OCOO) 

A*USR(#0118,I»0C00.234) 

loads memory location IfOCOO with FE and also loads 
the returned value, 234, into A. (FE»234) 


(3) USR (#0106) 

reads one ASCII character from the keyboard and 
returns its decimal equivalent (including parity bit, if 
any)-*- 236. 

(4) USR (#0109. 0. C) 

prints the ASCII character whose code is the right 
half of the hexadecimal value of expression C. Note 
that the second expression. In this caM 0, is ignored. 

The character to be typed must start out In the D 
register; hence, the above format. The third expres- 
sion is passed In RA with its lower half in the register 
D. This routine happens to return a value 231 In all 
cases, which would normally be Ignored. Two ex- 
amples follow: 

PR USR(#0106) 

will read a character and print its decimal equivalent. 

On the printer there would be, for example, A321 for 
a zero parity bit (where A was typed by the user). 

A » A -► 0*USR(#0109,0,66) 

will print the character B and ignore the returned 
result (231). 

(5) USE (#0144,N,M) Is s two-byts POKE. An sxsapls of 

ItB UM It 

L-UBE (#0144,#COOO,P) 

(6) USE (#0116, N) It t two-byte PEEK. An extaplc of 

its utt It 

L-U8E (#0116,#C002) 

Error Mtsstgts end 
Program Debugging 

Whenever the Basic 1 interpreter deteas an error in 
a statement, it generates an error message consisting 
of an exclamation point followed by a decimal error 
number. A listing of the error numbers and their cor- 
responding meanings it given in Appendix C. If the 
error it deteacd during program execution, the enor 
code it followed by the word *AT" followed by the 
number of the offending statement. 

Almost all of the errors daeaed by Basic I are syn- 
tax errors. Basic 1 was In the process of interpraing a 
statement and found it unacceptable for some 
reason. Only two of the errors in the error list are 
daected during execution of a statement, i.e., after 
its syntax has been accepted, errors 141 and 243. Any 
other error number not listed In the table signifies a 
memory “full" condition, probably due to too many 
nested COSUBS or an excessively complex expres- 
sion. 

Most program execution errors are due to either in- 
correct flow or improper modification of variable 
values. To Find an error of the first kind, the user 
must daamine whether the program is sequencing 
properly, i.e., whaher certain sections of code arc In- 
deed executed when expected. Often, the Insertion of 
dummy PRINT statements within suspeaed code 
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MCtioni will reveal whether the How within the pro- 
gram ii proper. 

The Mcond type of error is most easily detected by 
the insertion of dummy program stops at key points. 
This procedure is also useful for diagnosing incorrect 
flow. A dummy stop is an inserted ^ND, or some 
Other inserted statement which is intentionally er- 
roneous, to cause an error stop. Once the stop oc- 
curs, the values of key variables may be examined 


(using the immediate execution mode— e.g., PRINT 
A.B.C) to see if they indeed have the expected 
behavior. In some cases, variable values may be cor- 
rected, m the immediate mode, while the program is 
still stooped. In this case and in the case where the 
program behavior is correct so far, the user will want 
to resume the program at the point where it last stop- 
ped. An immediate or direct GOTO, using the state- 
ment number after the stop, will permit the program 
to proceed as if it had not been interrupted. 
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cu>0oi 


.f 


Th« firit step to be taken before anything can be 
done with Baaic 1 interpreter, compiler, or any other 
program for that matter, li to power up the develop- 
ment lyitem and run the utility program tuppiied 
with it. The Baeic I interpreter and compiler alio re- 
quire the running of ^ It it aiiumed in this 
chapter that the uaer ii already familiar with these 
pro^tirei. 


Loading and Starting 
tha Intarpratar 

The Basic I interpreter is supplied on a floppy 
disk. To load the interpreter, the user should place 
the disk in oite of the disk drives and type 


BAS1C1.1NT:X 


enter a new program he should type 
the command NEW. 

Loading and Running 
tha Compllar 

The Basic 1 compiler Is also supplied on a floppy 
disk. To load the Basic 1 compiler, the user should 
place the floppy disk in one of the drives and type 

BASIC1.CMP:X 

where X is the drive the disk has been placed in. This 
command will load and start the compiler. Execution 
will begin with the compiler prompting the user for 
the following: 


where X is the drive the floppy disk has been placed 
in. This command will load and start the interpreter. 
The interpreter will respond with a colon **:" prompt 
when it is ready to accept commands. 

■ ' ^ The interpreter can be restarted at any time by 

mriooo ^hterii^ the'€K utility and typing in one of the 
■ — ''^following commands: 

** P 100” This command is for the normal 
“cold start”. Basic 1 initializes itself 
and then delivers the colon prompt. 

” 1^103” This command b for the “warm 
start”, which skips the initialization 
procedure and preserves the state of 
memory. It also returns the colon 
prompt. The warm start is used 
when there is already a program in 
memory or when certain control 
parameters have been modified so 
that they are different from those 
which were first initialized. If, after 
a warm start, the user wishes to 


LIBRARY? 

READ? 

WRITE? 

ORIGIN? 

VARS? 

STACK? 

The user responds to these prompts by typing a file 
name in the same form as discussed earlier for the 
library, read, and write files. The ORIGIN, VARS, 
and STACK prompts require the user to type the 
location in memory the program is to start, the loca- 
tion of the variables, and the location of the top of 
the stack. An example is given in Fig. 1 1 of the com- 
piler prompts and a sample respoitse. 

If a carriage return is hit when the library file name 
is prompted, a default file name of BASICI .L1B:0 is 
assumed. Any invalid file names will cause the prin- 
ting of an error message followed by another 
prompt. The library file contains subroutines used by 
the compiler. After compiling the user program, the 
compiler calls In the desired subroutines from the 
library and places them In the write file. If the user 
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type* a 46 (a key number) after the VARS prompt, 
the variablei will be located in the tame place as they 
were In the Interpreter, as will TTYCC and the input 
line buffer (see Appendix D). The stack starts at high 
memory and works down. A minimum of SO bytes 
should be saved for the stack; more should be saved 
for large programs. To correct errors, the user should 
type CONTROL-C for a new prompt. 

Following !• a further explanation with regard to the 
value given for a VARS? proapt laeued by the 
coapller. When the ueer reeponda to the VARS? proaipt 
with the value 46, atorage la allocated for all 
varlablea that Baalc 1 allowa. The advantage of thla 
acheae la that the ueer can return to the Interpreter 
for debugging purpoaea and varlablea will be located 
where both Interpreter and conpller have coraonly 
allocated then. If a value other than 46 la given In 
reaponee to VARS?, data la allocated for varlablea 
four bytea at a tlae for palra of varlablea. For 
asawple, if only variable Y la uaed, the ueer will 
aee In the output froa the compiler: 

VY DC OOOOH 
VZ DC OOOOH 


LIBRARY? BASIC1.LIB:1 
READ? TEST1.SRC;1 
WRITE? TEST1.CMP:1 
ORIGIN? 256 or «100 
VARS? 46 or «2E 
STACK? #2FFF 

Fig. 11—Compll§r prompts §nd •unph 
rotpooM. 
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Appendix A— 

Formal Definition of Basic 1 Compiler/Interpreter 


< PROGRAM > 

< STORED PROGRAM > 
<LINE> 

<8TMT8> 

< MORE STMTS > 
<STATEMENT> 


<LA8TSTMT> 


<OOLI8T> 

<PRINTLIST> 

<MOREPRINT> 

<PRINTITEM> 

< SEPARATOR > 

<INPUTLI8T> 

<INPOTITEM> 

< CONDITION AL> 

<EXPRLI8T> 

<COMMA> 

<ARG12> 

<EXPR> 

<TERM> 

<SiON> 

< FACTOR > 


<HEXSTRNG> 

<ARG8> 

< RELOP 

< ASSEMBLY LANGUAGE > 

< FILENAME > 

<NAME> 

<LETTER> 

< STRING > 

<CHAR> 

< NUMBER > 

<FSUFFIX> 

< SUFFIX > 

<8UF0EL> 

<8NAME> 

<UNIT> 

<N8TRNG> 

< COLON > 
<HEXNUMBER> 

<VAR> 

< COMMENTS > 


STMTS ><CR> / < STORED PROGRAM > 

;: >< LINE> I < LINE> < STORED PROGRAM> 

< NSTRNQ >< STMTS >< CR > 

<LAST STMT> / <MORE STMT8> <COLONxLA8T 8TMT> / 
<STATEMENT> 

;;■< STATEMENT > / < STATEMENTx COLON >< MORE STMTS > 
::-LET®<EXPR> «<EXPR> /LET<VAR> ■ < EXPR> / <VAR> «<EXPR>/ 

PRINT <PRINTLI8T> / PR< PRINTLI8T> / <STRING>" / 

<8TR1NQ>"<M0REPRINT>/ 

INPUT<INPUTLI8T> / INPUT < INPUTITEM> / IN< INPUTLI8T> / 

IN < INPUT ITEM> 

OUTPUT<EXPRxCOMMAxEXPR> / 

OUT < EXPR X COMMA x EXPR > / 

• * * LIST < EXPR > / * • • LI8T< EXPR > < COMMA > < EXPR> / 

WEOF / TIN / TOUT / NOUT / DIN / DOUT 

CLOSE /WFLN / RFLN / DOUT< FILENAME > / DIN<FILENAME>/< > 
::«OOTO®<QOLIST> / GOTO < EXPR >/ 

GOSUB®<GOLIST> / GOSUB< EXPR>/ 

IF<CONOITIONAL>THEN <NUMBER> / IF < CONDITION ALx STMTS >f 
IF <CONDITIONAL> THEN <STMTS> 

LIST I RETURN / RET / END / *** STOP/ ••*<RDOS> / 

*•* NEW / *•• CLEAR / •** SCR / *** RUN< EXPRLIST>/ ***<RUN> / 
REM<COMMENTS> / **** UASSEMBLY LANGUAGE> / 

**• KCOMMENTS>/<> 

::-<EXPR> /< EXPRxCOMMAxEXPR> / 

< EXPR> < COMMA> < EXPR> < COMMA> < EXPR> 
::»<PRINTITEMxMOREPRINT> /<> 

< SEPARATOR > < PRINTLIST> 

;:.“<8TRING>" / <EXPR> / HEX« ARG12>) 

::■,/; 

;:.<VAR> / < VARxCOMMAxlNPUTLI6T> 

:: - ••< STRING> "< INPUTLIST> / "< 8TRING> "< COMMA> < INPUTLI8T> 

< EXPR> < RELOP> < EXPR> 

:: ■ < COMMA> < EXPR> / < COMMA> < EXPR> < EXPRU8T> 

:: m < EXPR> < COMMA> < EXPR> / < EXPR> 

::xSIGNxTERM> / < SION x TERM >•(> <EXPR> / 

< SIGN X TERM >-< EXPR > 

::■ < FACTOR> / < FACTOR> *<TERM> / < FACTOR> ♦ <TERM> 

::■-/ + /<> 

:: - RND(< ARG12>) / AND(< ARG12> ) / OR(< ARG12> ) / XOR« AR012>/) 
MAX(< ARGS>) / MIN« ARGS> ) / SGN(< EXPR>) / ABS<< EXPR>V 
MOD(< EXPR> <COMMAxEXPR>) / USR(<OOLI8T>)/ INP (<EXPR>V 
<VAR> / <NSTRNQ> / (< EXPR>) / ® < EXPR> / #<HEX8TRNG> 
:;-<HEXNUMBER> / <HEXNUMBERxHEX8TRNO> 

:: ■ < EXPR> / < EXPR> < COMMA> < ARG8> 
::■</>/■>/■</■/<>/<■/>■/>< 

1602 ASSEMBLY LANGUAGE 
:;-<NAME> / < NAMEx F8UFFIX> 

:: ■ < LETTER > / < LEHER> < STRING> 

::-A/B/C/.../Z 

;:«<CHAR> / <CHARxSTRlNG> 

;; « < LEHER> / < NUMBER> 

:;-0 / 1 / 2 / .../6 

;;«<SUFFIX> / <UNIT> / <8UFFIXxUNIT> 

< SUFDELx SNAME> 
r. ■ . 

::-<LEnER> /< LETTER xCHAR> / <LEnERxCHARxCMAR> 

:: - < COLON > < NUMBER> 

< NUMBER> / < NUMBER> < NSTRNG> 

:;!!b/1/2/.../9/A/B/.../F 

::«<LETTER> *** -INTERPRETER ONLY 

» DOCUMENTATION COMMENTS * “ * -COMPILER ONLY 
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Summary of Basic 1 Repertoire 


The following is a short >form guide to the facilities offered by Basic I . Characters enclosed in brackets '*( )** are 
optional and may be omitted. Commands marked with a single asterisk “**’ are not accepted by the compiler. 
Commands marked with a double asterisk have meanings that are slightly different to the interpreter and 
to the compiler. 

SItItmwrtt 

FORM OF STATEMENT BRIEF EXPLANATION OF EXECUTION 

REM Arty Comintnt Ignored. 

** I AsMmbly Language Intarpratar— Ignored. 

Compiler— Paaa aaaambly language to output file. 

|LET] Variable ■ Expreaalon Aaaign the value of the Expreatlon to the variable 

LETO Addresa ■ Datum Stores a byte anywhere In memory. 

QOTO Expression Jump to the statement whose number Is the expressions 

value. 

QOSUB Expression Savs the statement number of the next statement. Then 

execute a GOTO. 

QOSUBO Exp1(,Exp2)[,Exp3] Jump to the machine language subroutine at addresa 

specified by Expression 1. 

(Passes parameters specified by Expressions 2 and 3 If 
present.) 

RET{URN] Jump to the last saved statement number (aee QOSUB) and 

"unsave" thia number. 

* * END Interpreter— halt execution and return to enter mode. 

Forces a TIN and a TOUT to be executed. 

Compiler- halt compilation. 

IF Expr Rel Expr [THEN] Btmt If the relation between the valuea of the expresalone la 

true, execute the statement. Otherwiee, sMp It. 

IN(PUT] Inputllst Read and evaluate expresalone from the keyboard end 

assign them In order to the varlablee epecifled In the In* 
put list. 

PR(INT] Printllst Type the Items In the printllst. Type values of expresslona. 

Type quoted strings verbatim. Horizontal tab on comma. 

OUTtPUT] Port, Datum 
TIN 


TOUT 


Output the 8-blt data value to the specified port. 
Restores terminal as the primary Input device. 
Restores console printer as the primary output device. 
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NOUT 

DIN (Fllonomo] 

DOUT [Fllonomo] 

WEOF 

WFLN 

RFLN 

CLOSE 

* NEW or * CLEAR or * SCR 

* RUN [.Expression Sequence] 

* LIST [ExprK,Expr] 

* RDOS 


DIsobles output. 

Sets Internol flogs for disk Input. 

Cioeee previous Input file ond opens new file number 
specified filenome (If present). 

Sets Internol flogs for disk outout. 

Closes previous output file ond opens now fils under 
specified filenome (If present). 

Writes on end-of-f lie chorocter (DC3) on the output disk 
file lost reforenced. Then executes o TOUT. 

Reeds filenome from termlnol, closes previous output file, 
ond opens new file under specified filenome. Then ex* 
ecutes 0 TOUT ond o TIN. 

Roods filenome from the termlnol, closes previous Input 
file, ond opens new file under specified filenome. Then ex* 
ecutes 0 TOUT ond s TIN. 

Closes previous output file. Executes o TOUT. 

Cleors the progrom ores. 

Start execution at first statement. (Save the expression 
sequence to satisfy subsequent IN commands.) 

Prints entire program or one selected line or o range of 
lines. 

Returns control to Mtc^oD03. 


^FUNCTION 
MOD (Exp1,Exp2) 

AND (Exp1,Exp2) 

OR (Exp1,Exp2) 

XOR (Exp1,Exp2) 

MAX (Expression Sequence) 
MIN (Expression Sequence) 
SON (Expression) 

ABS (Expression) 


PERFORMANCE 

Divides Exp1 by Exp2 ond returna remainder. 

Returns the blt*for*blt logical AND of the two expressiont. 

Returna the blt*for*bit logical OR of the two expreooions. 

Returns the blt*for*bit logical XOR of the two expressions 

Returns the greatest value In the expreeolon llet. 

Returns the smallest value in the expression list. 

Returns A - 1, 0, or -t* 1 depending on whether the expres- 
sion Is negative, zero or positive, respectively. 

Returns the absolute value of the expression. 
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HEX (Numbar, Width) Used only In PR{INT1 statamants. Prints value of the 

number In hexadecimal. Both the number and the width 
can be any valid expression. 

RND (Exp1,ExP2) Returns a positive random number In the range between 

the values of the expressions. 

INP(Port) Inputs an 8>blt value from the specified port. 

USR (Exp1(,Exp2](,Exp3l) Used for machine language subroutine call, passing 

parameters Exp2, Exp3. Returns value from certain 
registers. 

WHERE: 

Number - - 32768 TO 32767 

Variable « Single Capital Letter 

Expression « One or more numbers, variables or functions (possibly grouped by parentheses) 

Joined by arithmetic operators -t-, -, *, / or the Indirection operator®. 

Relations are ■,>,<,<■,>■,<>,><, «>,or ■< 

Printllat ■ One or more expressions or quoted strings separated by commas. 

Inputllst ■ One or more variables separated by commas. 

Expression Sequence ■ One or more expressions separated by commas. 

Filename -Character string In the form; (NAME)(.EXTENSIONH;DRIVE1 

The first character of the name and extension must be an alphabetic character. 
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Summary of Error Messages 


0 

2 

3 


10 

11 

13 

14 

15 

16 
22 
23 
26 
29 
316 
1001 


Break during execution 

RETURN has no matching QOSUB 

No END etetement 

Mleepelled etetement type keyword 

Syntax error 

Syntax error 

GOTO or Q08US error—no line to go to 
Mlealng right parentheeee 
Syntax error 

Mlealng etetement type keyword or number outside range - 32766 to 32767 
Divide by zero 

Syntax error— mlealng variable name 
Syntax error— mlealng « 

IF expecta relational operator 

Line number too large (greater than 32767) 

Mlealng cloee quote In PRINT etring 
Line number 0 not allowed 
Run with no program In memory 
Can't LIST line number 0 
Invalid arguments In RND 


Note: In some cases multiple errors may have a masking effect resulting In either no error being flag* 
gad or an erroneous error number being printed. 
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Scratchpad Memory Locations in the interpreter 


M 


PAGE 

- #0000 

..Beginning of work space 

TIO 

« «0012 

..TTY timing flag 

BS 

« #0013 

..Location of rtukoat code 

CAN 

« #0014 

..Location of cancel code 

TAPE 

« #0016 

..Location of tape mode enable 

SPARE 

• #0017 

..Spare stack space 

XEQ 

• #0016 

..Execution mode flag 

LEND 

- #0019 

..Input line end 

AEPTR 

- #001A 

..Expression stack pointer 

TTYCC 

- #001B 

..Print column counter and flag 

NXA 

« #001C 

..Saved PC for (subroutine NXT) 

AIL 

- #001E 

..Address of Intermediate level language 

BASIC 

« #0020 

..Address of user code 

STACK 

« #0022 

..Address of memory top 

MEND 

- #0024 

..Address of program end 

TOPS 

- #0026 

..QOSUB stack top 

UNO 

- #0026 

..Basic program current line # 

WORK 

- #002A 

..4 bytes of scratch 

SP 

- #002E 

..Saved pointer 

LINE 

« #0030 

..Input line buffer 

AESTK 

- #0060 

..End of alternate expression stack and line buffer 

VARS 

> #0082 

..Beginning of variables 
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Low Momory Mop In the Intorprotor 

0100 ..Cold-otort entry point 

0103 ..Worm-otort entry point 

0106 ..Long bronch to chorocter Input 

010Q ..Long bronch to chorocter output 

010C ..Long bronch to brook toot 

010F .. oodo 

0110 ..Line cortcol code 

0111 ..Pad chorocter 

0112 ..Tope mode enable flag 

0113 ..Spore stack elze 

0114 ..Subroutine to read one byte from RAM to RA 

0118 ..Subroutine to store RA Into RAM at addreas In R6 

01 1C ..User address constant 

1600 ..Beginning of ueer program 
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Appendix E— 
ASCII— Hex Table 


SI 


MOST SIGf4lFICANT HEX DIGIT 



0 

1 

2 

3 

4 

S 

6 

7 

0 

NUL 

DLC 

SP 

0 

« 

P 


P 

1 

SOM 

DCl 

1 

1 

A 

Q 

a 

q 

2 

STX 

DC2 

M 

2 

B 

R 

h 

r 

3 

ETX 

0C3 

« 

3 

C 

S 

c 

s 

4 

EOT 

DC4 

s 

4 

D 

T 

d 

t 

S 

ENQ 

NAK 

% 

5 

E 

U 

c 

u 

6 

ACK 

SYN 

G 

6 

F 

V 

f 

V 

7 

BEL 

ETB 


7 

G 

w 

r 

w 

8 

BS 

CAN 

( 

8 

M 

X 

h 

X 

9 

HT 

EM 

) 

9 

I 

Y 

i 

y 

A 

LF 

SUB 

* 

• 

J 

Z 

j 

z 

B 

VT 

ESC 

■f 

• 

K 

1 

k 

{ 

C 

FF 

rs 

t 

< 

L 

\ 

1 

• 

1 

I) 

CR 

G5 

- 

:: 

M 

1 

m 

} 

li 

50 

RS 

• 

> 

N 

♦ 

n 

% 

|- 

SI 

us 

/ 

•> 

0 

4- 

0 

DEL 


NOTES: 

(1) Polity bit in most significont hrx digit not included. 

(21 Characters in columns 0 and 1 (as well as SP and DE L) 
are non pi inting. 

(3) Model 33 Teletypewriter piints codes in columns 6 and 
7 as if they were column 4 and 5 codes 



